home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / multlang.zip / MREG.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-15  |  1KB  |  48 lines

  1. unit Mreg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Mcombbox, MultLang;
  8.  
  9. type
  10.   TRegister = class(TForm)
  11.     Memo1: TMemo;
  12.     MultLang1: TMultLang;
  13.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  14.     procedure MultLang1Translate(Sender: TObject; LanguageName: String);
  15.     procedure MultLang1Translated(Sender: TObject; LanguageName: String;
  16.       Successful: Boolean);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   Register: TRegister;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TRegister.FormClose(Sender: TObject; var Action: TCloseAction);
  31. begin
  32.   Action:=caFree;
  33. end;
  34.  
  35. procedure TRegister.MultLang1Translate(Sender: TObject;
  36.   LanguageName: String);
  37. begin
  38.   Memo1.Visible:=False;
  39. end;
  40.  
  41. procedure TRegister.MultLang1Translated(Sender: TObject;
  42.   LanguageName: String; Successful: Boolean);
  43. begin
  44.   Memo1.Visible:=True;
  45. end;
  46.  
  47. end.
  48.